unit oManager;

{
	created   2.3.2010
	author   	Michal Varga
	purpose   abstract ancestor for the managers

	edit list:
}

interface

uses
  oProcessItem;

type
  TManager = class
    protected
      aMaster: TManager;
    public
      property Master: TManager read aMaster;
      constructor create(paMaster: TManager = nil);
      function ProcessObject(paItem: TProcessItem):TProcessItem; virtual; abstract;
  end;

implementation

{ TManager }

constructor TManager.create;
begin
  aMaster := paMaster;
end;

end.

